


THE AIM OF this and the next article is to 
describe the construction of a compiler system 
for BBC Basic that is suitable for use on the 
BBC and Electron computers. The limitations 
on the amount of memory available on these 
machines mean that it is not possible for the 
program to compile all of BBC Basic — 
instead only a subset is treated but this is more 
extensive than that handled by some commer- 
cially available compilers. This subset is 
shown in figure 1. I shall refer to it as TC — 
Tiny Compiled — Basic. 

TC Basic consists of two programs; the 
compiler which is a large Basic program and 
the run time system — RTS — which is a 
hybrid machine code — Basic program. This 
article will describe the compiler while the 
subsequent one will contain a description of 
the assembly language program that generates 
the RTS: this is called the run time system 
generator — RTSG. 

The aim of a compiler, is to convert a 
program written in a high-level language like 
BBC Basic into a much simpler one like 
machine code which will therefore run faster. 
A program compiled by the TC Basic 
compiler will run as fast as a Forth program — 
ie., four to five times faster than the usual 
interpreted BBC Basic. 

The code version of a program is rather 
more compact than the original Basic program 
and, typically, at least 1OK of code can be 
generated on a BBC micro — for the Electron 
4K would be a reasonable estimate. 

The compilers usually implemented on 
mainframe and minicomputers take the high- 
level program and convert it into machine 
code. However, for the BBC computer this 
approach has the disadvantage that the 6502 
CPU chip does not have instructions to do 
many of the things one would like it to. 

For instance, there are no instructions to 
add two 16 bit numbers or for multiplication. 
To get round this I have invented a “‘virtual 
machine’’. This is an idealised CPU which 
has instructions to do all the things required. 
It is implemented as a 6502 machine-code 
program. The compiler produces machine- 
code for this virtual machine; such code is 
usually called pseudo-code or more briefly, p- 
code. 

The machine-code to interpret the p-code, is 
contained in the RTS and this is, of course, 
the main purpose of this program. The use of 
p-code has some advantages and some dis- 
advantages. The chief advantage is that it 
makes the compiler and run time system a bit 
less complex. A further advantage is that 
compiled programs are very compact. The 


Figure 1. TC Basic Specification 
Variables: 

2 byte signed integers. 

Variable names may contain up to 255 
characters and may end with a %. The 
variables A% to Z%, use the same 
memory locations as the usual Basic 
system variables thus allowing 
programs to pass information, and 
enabling parameter passing to the Call 
statement. 

Arrays: 

Multiple dimension arrays of 2 byte 
signed integers. 

Arithmetic Operators: +, —, *, /, DIV, 
MOD 

Logical Operators: AND, OR, EOR, NOT 
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chief disadvantage is that p-code executes 
about three times slower than machine code. 

An alternative to p-code would be to 
compile the Basic program into 6502 
machine-code statements. Every time some 
feature not in the 6502 instruction set was 
required we could jump to a subroutine in a 
run time support system. Simple functions 
like addition could be implemented as in line 
code. The major advantage of this approach is 
that programs run faster. However, there is 
the disadvantage that programs are very long; 
perhaps three to four times the length of an 
equivalent p-code program. 

All the components of a p-code system are 
used by a true machine-code compiler. It is 
therefore worth starting with such a system if 
you want to learn how to make a compiler 
work. 

The TC Basic compiler is shown in the list- 
ing. Obviously, if you want a TC Basic 
system, begin by typing in this listing. It 
should be Saved before you try Running it. In 
addition, before you can declare the compiler 
finished, it is necessary to enter in line 120 the 
value of the address in memory of the top of 
the RTS. This number, is provided by the 
RTSG program to be described in part 2. 

The following is a desciption of the major 
components of the compiler. The main 
program runs between lines 150 and 300. 
Line 150 calls Procsetup — line 560. This 
initialises the values of various variables; in 
particular, it gives a large number of them the 
values of the Basic tokens which correspond 
to the keywords the compiler needs to know 
about. Procsetup also calls Proctok — lines 
380 to 540 — which assembles a small 
machine-code program which is used to print 
out keywords from their tokens in the listings 
of programs. In addition, Procsetup prompts 
the user to specify the sizes of various things 
and reserves the appropriate quantities of 
memory. 

Line 160 is a call of Procopen — lines 940 to 
1020 — which opens the file containing the 
program to be compiled. Once the file is open, 
characters are always read from it by using 
FNCH — line 1020. Line 170 set things up so 
that compilation can start and in line 180, the 
call of Procprog actually initiates the com- 
pilation process. After the program has been 
compiled, execution of the main program 
continues at line 190. Lines 190 to 210 check 
if the storage allocations have been exceeded 
and print error messages if this is the case. 

At line 220, a check is made to see if there 
have been any errors so far. If there have, the 
program branches to line 290: this is where 


Relational Operators: =,<, >, >=,<=,<> 


Indirection Operator: ? (right hand side 
operand only) 

Statements: 

FOR TO STEP NEXT (no variable 
allowed after NEXT) 

REPEAT UNTIL 

PRINT“string” ‘ variable / expression, 
TAB(X,Y) ; 

IF THEN ELSE 

VOU 

* string (send string to OSCLI) 

GOTO line number 

SOUND ENVELOPE 

MODE GCOL COLOUR CLS CLG MOVE 
DRAW PLOT 

CALL END 
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the compiler ends if there are errors; a 
message is printed out giving the number of 
errors. 

At this point, the compiler has constructed a 
p-code version of the Basic program. 
However, there are no actual addresses in this 
for either variables or for Goto — or in p-code 
jump — statements to branch to. To complete 
the p-code program it must be “‘fixed up”’. 
This is done by Procfix — lines 4050 to 4230 
— and its associated routines in lines 3950 to 
4280. This procedure allocates memory to 
variables and finds out the addresses in code 
to which Gotos, procedures and functions 
correspond. While the code is being fixed up, 
it is also relocated so that it will run at the 
address corresponding to the top of the RTS. 


‘Hence the reason why the value of this must 


DIM array./ vairable 
System variables / functions: 


INKEY GET TRUE FALSE 
ADVAL TIME ABS SGN 

POS VPOS POINT SQR RND() 
Procedures / functions: 

DEFPROC PROC ENDPROC 
DEFFN FN oa 


procedure and function arguments are 
not supported but procedures and 
functions can be used recursively. 

In addition, the following are 
supported: REM, () (brackets), = 
(asignment), : (for multi-statement 
lines), integer constants, + and — 
(unary sign operators), & (for hex 
constants). 
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be known. 


Finally, if no errors occur in the fix up 
process the compiler ends at line 260; this 
calls Procdump — lines 1040 to 1180 — to 


save the code produced. 


Some other features of the compiler are 
worth describing. The procedures in lines 
1230 to 1900 compose the lexical analyser. 


TC BASIC COMPILER 
D. J. Pilling 
(ec) January 19785 


enter value for top of RTS in 
line 12@. 


i26toprts=7848 

ize 

14@MODE7: PROCT 

IiS@PROCSETUP 

16GPROCOPEN 

17@T4@FNCH: AXA@FNCH: PROCLX 

18@PROCpr og: CLOSELZ% 

19@IFNLZOML% PROCEM(S) 

2G@IFNSZOMB% PROCEM (4) 

ZiIGIFEX<CX+MC% PROCEM (6) 
t 22@IFEN%Z GOTO2Z98 

23@PROCF IX 

248IFENZ% GOTO298 

2358 

268PROCNE: PROCDUMP 

27GEND 

288 

Z298PROCEE 

S@GEND 

316 

S2QDEFFNL (Bi%,B2%,B3%) 

SSOBSA=BS4#256+B24-%.4848 


S4QIFBiXMODS1G=@ BSXeBSA+1 63641 Biz=Bix+4 
SSOIFBiX=&44 Bik=64 ELSEIFB14=&54 Bixz=@ ELSEIFBI“Z=&6 


Bix9192 ELSEIFBiX#"&74 Bi%=126 
368=BiX~+BS% 

378 

S8S@DEFPROCTOK 
S9BIF7&BS1S"SSB~=&7FF i ELSEBX@k7FED 
4GGG4%=%82ED:DIMNTK 188 

41 OFORIZ=OTOSSTEP2Z: PX=TKs COPTIZ 
426CMP£i126: BCCK%: BEQ L% 


43BTAX: LDALBADIV256s START 12 LDALBYMOD2Z56s STAK7OrLDYE1 


28 
448.D% TXArCMP(&78) ,YsBEQ Cx 
435@INC &7@:BNE D%r INC &71 
460LDA&71:CMP GXDIV256:BNE DX 
470LDA&731CMP GYMODZ56: BNE Dx: BEQ F% 
480.C% LDX£8 


) 


Le 


s 


compiler for the BBC. 


PILER 





498.H% DEY: INX:LDA(&7@) , Ys CMP£1272 BCCH% 


Every time Proclx — lines 1230 to 1360 — is 


called, it reads the text token from the 
program and puts its type in the variable T%. 
Here “‘token”’ does not refer to the usual BBC 
Basic keyword token. Instead, it means the 
next significant piece of the program. There- 
fore, tokens can be variables and strings. 

As was stated earlier, in a p-code system one 
constructs a virtual machine. In TC Basic the 
virtual machine is stack-based. This means 
that all operations take place either to or from 
the stack. For instance, there is an operation 
Add which takes a variable and adds it to the 
top element of the stack the result of the 
addition becoming the new top of stack 
element. 

When the syntax analysis requires that a 
variable be added to the stack it calls Procadd. 
This writes the opcode for Add (2) into the 
code space and follows it with the address of 
the variable. In fact, until fix up instead of the 
variables address its number in the symbol 
table is used. 

Other code generating subroutines, are 
supplied for all the operations the virtual 
machine is required to perform. 

A typical scenario for the use of the 
compiler would be as follows: First, the 
program is developed as usual using the TC 
Basic subset to BBC Basic with the BBC Basic 
interpreter and Saved. Next, the compiler is 
Loaded and Run. It then asks for three pieces 
of information; the number of variables, the 
number of line numbers and the code space in 
bytes for the program to be compiled. 
Typically, answers of 100, 100 and 2000 
would suffice for a small program. It is 
important to note that the number after a 
Goto counts as a variable as do the names of 
functions and procedures. Thus you must be 
careful when calculating how many variables 
to reserve space for. 


Next, the compiler will ask you for the 


name of the program to be compiled. This 
will then be read in off the tape. This can in 
fact lead to a slight problem since, the 
compiler, is treating a program file as a data 
file. On a cassette-based system they are 
written to tape with different inter-block gaps. 


S@BINY: INY: DEX: DEX: TXA:CMP£9: BCS F% 

5$1@.E% LDA(&7@) ,Y: JSR &FFEEs: INY:DEX:BNE E% 

526.F% RTS:.K% JSR &FFEE: RTS 

33@.L% LDA£L65:IJSR &FFEEsLDAL7G:JSR &FFEE:LDAL68: JSR 
&FFEE:RTS: J: NEXT 

S4GENDPROC 

5528 

Sé68DEFPROCSETUP 

3S78PROCTOK 

S@@PRINT"SELECT STORAGE ALLOCATIONS" 

S9SINPUT‘' "ENTER MAX. NUMBER OF LINES" ‘"NOT LESS THAN 

18 >"ML% 

6Q@6IFML%< 18G0TOS9@ 

61@INPUT’"ENTER NUMBER OF VARIABLES" "BETWEEN 5 AND 
256 >"MS% 

62GIF MS%>25é6 OR MSX%<3S GOTO618 

63@INPUT’ “ENTER SIZE OF CODE SPACE IN BYTES" ’ "NOT LE 
8S THAN 108 >"MCX% 

640IF MCX%<188 GOTOéS@ 

6S5@DIM S#(MS%) ,8% S#MS%,L% 4eML% 

6688S=STRINGS(40," ")2Sga"" 

67@ONL%=@6: NSK=0: SNX=81 ENXK=8: ELXA=B 

6B8DIM CX MCX%sCK=CX+4 

69@RLX%=toprts-Ci+42 MCX=MCx%-4 

7OQP4=C%Ks EX=CK+MCK 

71@for=&ES: to=&BG: step=&88: next =&ED 

720vdue&EF:s print=&F is tab=&6A: proc=&F2 

738def=&DDs endproc#=&Ei:rem=&F4 

74Ggoto=&kES: end=&EG: inkey=&AG: i f=&E7 

7350el se=&SB: lino=&8D: then=&B8C: di m=&DE 

76Seq"&kSD1 gequkis leqeazs gt@=&SE1 1 t=&SC 

77Gneqz&S: lb#k281 rbek29strekBSs $1 e&kAS 

768pius=&2B5: minus=&2D: se] ash=&2F 

790ti mes=&2A: pling=&SF i squote#&27 

BBSdquote#k221 comma=&2C: acol =&3B 

618col -&3SA: spc#S2: e@ol n&=&D: eop=&FF 

BS2Ggeqrals leqek2: neq=&S:id=&411b1 2&5 

B3Sconst=k6i string@&7:repskFSs unt#=&FD 

64Gm0d=%83: di v=&61i1 sounde&D4: ar=&6 

BSGand=&89: or #&k84: eor @&kB21 Fn=kA4S 

B6Gtimel-&Distimer=&91:1pc=371 ap=3se 

B78mode=&EB: cl s=&DBicl g@kDA: gcol =kES 

688col o@&F Bi draw=&DF i move=&ECi plot=&FO 

89Ernd=&BS: sqre&Bé: egn=&B4: abs2#k94 

SGGget=&AS: adv=&96: pos=&B1i: vpo=&BC 

91Gpoi =&BG: call =&Dé6i1not=kAC: envekEZ 

F2BENDPROC 





930 
94Q@DEFPROCOPEN 
95O#0PT1, i 





This article is available 
on the Telsoft service. 


With some cassette recorders having the' 
wrong gap will lead to filing system errors 
when the program is being read in. The 
solution to this problem; if it happens to you, 
is to define one of the function keys as follows: 


*KEYO *OPT,1 IIM INPUT “° “FILE NAME 
“A$:X% = OPENOUTAS$: FORI% = PAGE 
10: TOP*4) BRUT A KY; 71%: NEXT: 
CLOSE # X%: *OPT IIM 


f0 is then used for saving programs to be 
compiled. 

As the program is compiled, it will be listed 
out on the screen. If any errors are found there 
will be a break in the listing and an 
appropriate error message. If enough room 
has not been reserved for variables code or 
lines you will be informed of the amount of 
space needed for the. 

Finally, if there..aré no. errors ‘in 
compilation, a copy of the code equivalent of 
the Basic program can be saved. This will 
automatically be given the name C.name-of- 
compiled-program. 

To execute the program, this new code file 
must be loaded into the RTS. The con- 
struction of this will be described in part 2. A 
C30 containing the listings from both articles, 
TC Basic systems set up for both tape and 
disc based computers and example programs 
and code files is available from D. J. Pilling, 
12 Cherrywood Avenue, Anchorsholme, 
Blackpool. FY5 1SU. in return for a cheque 
for £2.99. 


968#0PT2,1 

97@PRINT' "ENTER NAME OF PROGRAM TO" 

FBGINPUT"COMPILE >"FS 

998Z%=0PENUPFS 

1@@BPRINT‘’’"START OF COMPILATION" ’' 

1810#0PT1 ,@ 

162@ENDPROC 

183@ 

1@4QDEFPROCDUMP 

1@S@IFLENFS>6 FS=LEFTS(FS,9) 

1Q60FS="C."+F¢ 

1Q7@PRINT’ '"“READY TO SAVE CODE";Fs 

1Q@8Q@PRINT"SAVE CODE 7? Y/N "3 

1Q@9OIZ%=GET:IF IZ%=ASC"Y" ELSEIF I%*ASC"N"GOTO1178 ELSE 
1898 

11@@PRINT’’ 

1110*OPT1,1i 

11286X%=O0PENOUTFS 

LAIS@PRINTEX%,C%,F%, EX, FS 

114@FOR I1%@C%-4 TO EX: BPUTEX%, 71%2 NEXT 

115@CLOSEELX% 

116860T01878 

117@#0PT 

116@PRINT’ 's ENDPROC 

1198 

12@8DEFFNCH: =BGETE£Z% 

121@DEFPROCA: CALL TK: AX@FNCH: ENDPROC 

1228 

1 236DEFPROCLX 

124GIFEL% TX=@: ENDPROC 

1258I1F T%=eo0p 1 ENDPROC 

1268IFT%=e@0ln PROCNL 

1278IFAZ=spcr REPEAT PROCAs UNTILAZ< >spc 

128@IFNOTFNAL (AZ) GOTO1320 

129GPROCIGisIFAX@=pc S*@e=SS+"%"sPROCA 

1S@BIFAZ=1b THear ELSETK=id 

1318PROCS: ENDPROC 

IS2QIFAXK< >proc ANDAXZ<>fn GOTO1ISSS 

1S3SOTA#AK2 PROCA: IFNOTFNAL (AX) TX=@: ENDPROC 

1348PROCIG: PROCS: ENDPROC 

ISS@IF FNDN(AZ) PROCDNG ELSEIF AX#ap PROCA:PROCHNG EL 
SEIF A%=rem PROCRG ELBEIF AX=dquote PROCSG ELSEIF Axz=1 
ino PROCLG ELSEPROCTG 

1 36@ENDPROC 

1 37@DEFFNAL (AX) s @ (AX >S64ANDAZK< 91) OR (A% >96ANDAX< 123) 

1SG@Q@DEFFNDN (AX) 1 = (A% >A 7ANDAK< SB) 

I S9GDEFFNHN (A%) § = (AZ DATANDAZ< SB) OR (AX >64ANDAX< 71) 

14Q@DEFPROCLG 


(listing continued on next page) 
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NL (FINCH, FNCH, FNCH) 
SNO1AX@FNCHi SSeS TRENy 


SPEAT! 8$=88+CHR8Ax: PROCA: UNTIL NOT (FNDN (Ax 











8s REPEAT NIGNI*101 NR=NO¢8%-ABC"@"sPROCALUNTELN 
) . 


1518TX=const 

152@ENDPROC 

1 53@DEFPROCHNG 

154ON%=@1 REPEAT NZ@NKH16 

1SS@IFFNDN (Ax) Nk@NK+AX%~ASC"@" s PROGA ELSE IFFNHN (Ax) N 
HeNK+A%~ASC"A"+101 PRoGA 

1 S6QUNTILNOTENHN (ax) 

1578Ti=const 

1S8@ENDPROC 

1S9@DEFPROCRG 

16Q@REPEQT PROCAtUNTILAX@eol ni Tmaxs PROCA 

161@ENDPROC 

1628DEFPROCSG 

163888="") PROC, ad 

DRAmeoL a Tee CURA YOUR AZMENCHA LNT A%~=dquote 

LSE PROCA 


1658IFAxedquote GOT01449 
1668T%=strin 

1678ENDPROC 
168@DEFPROCCL IG 
169@8s=CHReay 


171QENDPROC 
1728DEFPROCTG 

173@TX=AX: PROCA 

1748IF Timgt ANDAK=@q Tk=geq:PROCA 
17S5OIFTx%=1¢ ANDAX=@q TX=leqsPROCA 


AXK< >spc) 
178OIF TxmcQ) ANDAX@e0l ns TKmAx: PROCA 
179@ENDPROC 
16Q@@DEFPROCNL 
181 81F Ax=eop: ENDPROC 
Lee em Ax#256+ENCHI LL xeRNCH 
183@IFNLX ML x ENX@ENX+11G0TO1 699 
Lge OLX? (NL X84) ML IXDIVose 
Lene? (NLKB4+1) mL IxmODose 
LoL x? (NLK0442) aPxDryzee 
fegekk? (NLK#443) ePymoDase 


1G9@PRINT'sL Ix, TAB (4) 5 1 AXm32 
198@ENDPROC 
19198 


1928DEFPROCS 
L93OIF N8% >MB% EN%*ENX+1 1s ENDPROC 


19S@QUNTIL (S$ (SNX) agg AND 8%? (3#8NX) aT) OR S$ (8NX) = 


196Q1F S$ (SNx) mn SON ea oe NOXANEX$118%7 (SHENK) ery, 6 
eS BONet1) =01 8x7 (SeBNKeoy es 

197@ENDPROC 

1968 


1 99@DEFPROCprog 
20Q0IF Timeop PROCEND: ENDPROC 


Z21OPROCet ater IF Teco) ORTKee@01n PROCL x: GOTO2@eg 
2@2@ENDPROC 


2OS2DEFPROCde¢ 1 PROCEND 

ZO4@PROCL Xs IFTX< Sproe ANDTX< >¢p, PROCC (proc) 

Soak? (SHENK+1) ePxDIVONS 

see OSk? (S#ENK+2) ePxMODoSe 

2878I1F Tym¢p, PROCL X:G0TO2129 

2@8@PROCL x 

20981F TXm@op ORT X*endproc BOTO211¢@ 

21@QPROCet ate: IF Teco, ORTX=e01 7 PROCL X: GOTO2a9g 
Cc 


216QDEFPROCEtate 
21781F Txme01 py, ORT%=co) ORT%=@1 ses GOTO2459 
2160IF Tyaig PROCasi gn: GOTO248g 


22381F Txerep PROCr ep: GOTO248@ 
22481F Trmygy, PROC Vdu1 GOTO248@ 


2268IF Timor i nt PROCprintsGoTo24s¢ 
2298 1F Timeng PROCend: GOTO2489 


2388 IF Txmdes PROCde# 1s BOTO248@ 


2348IF Tx i m PROCGi ms BOTO248@ 

2358IF Tyme 3 CLIG§PROCCL 11 GoTO2489 
2368IF Timmode PROCmode: GOTO2459 

2378IF Timco] 5 PROCCOl 01 GOTO245q 

2388 IF Timgeg) PROCgcol 1 GOTO2459 


2398IF Timmove ve: GOTO245¢ 
2488 IF Txmdr ay PROCGr aw: GOTO245q 
2418IF Txmp 1 o¢ lot: GOTO248g 
24281F Timcis x (12) sG0TO245g 


' 
2438IF Timcig Prone! PROCVDL (16) sears 
244@PROCEM (7) s PROCEL 


SonpsProcer! stugppeROOLX"PRCCaenprPSEcc can) sPRocs 4, er 
OCexP? PROCSTI1s ENDPROG 
sTFveNoPmag “™!®"*PROCLAYPROCC Cag) sPROCLsPhocene 
CSTT: ENDPROC 


SE rere eT PARC IORI PROCADR(P-3, 00) sPmocs eae 
ROC 


EM NRIs ec tons cee 
c 


26Q@DEFPROCVay, 
261@PROCL x 
262@PROC@xp 1 IF TYmgco) PROCVDD ELSEPROCVpYy 


26381F Timcomma 80TO2619 ELSEIF T%egco) PROCLX1 IFFNEXp 
G0T02629 


264QENDPROC 
265@DEFPROCi $s LOCAL Lix,L2x 
266@PROCL x 
267@PROCexp 
2681.1 %=P%: PROC INC 
269OIF Timthen, PROCL Xs IF T%@1 ing PROCIMPs PROCADR(Px-3, g 
N%) s PROCL Xx: GOTO2719 
s 


aye reeee! 1 PROCL Xs GOTO2 709 

27281F TX< el se TRO CADR (1.1% 4P%) s ENDPROG 
27aap Rael xt PROCOMPs PRocADR tt 2 EN! 
274@PROCL x 


2750IFTx=) ing Sr PROCADA (PH, Sher) somes.» secinaey 
78 


q DOREPEAT! PROCA: St=BeecHReaxs UNTT, Axmeolns TKeAx: PRO 
CA 


2768PROCstate 
ar eeneT%™cOl 1 PROCL Xs GOTO2 769 
278@PROCADR (12x, px) 

279@ENDPROC 

280@DEFPROC# or Local ST%s PROCLx 
See ROCK (id) 1ST xmENKE PROG, S 
FeSO eee (9) 1PROCL Xs PROGEN: 
283@PROCSTA: PROCADR 


Z7OBDE a oeet) # PROCL Xs PROGNTS CNpROS 

Sr SN) Proce et EpeoGLX"PROCE ime) 7 ob ghes PRocaon py 
“$3 SN%) | PROCL.X1 ENDPROG 

Sg AODEFPROCEr int sLOCALT3 x 

29287 1%=Tx: PROCL x 

2938IF Timgquote Tozsset ‘13? #PROCVDL (18) s60Ta2929 
2948IF Timgco} G0T02928 

2950IF Timstring PROCSTR: GOTO2929 

29681F Timcomma PROCVDL (32) 1 G0TO2929 

29781F Tx=tab PROCVDL GVO (31) 1 PROCL Ys PROCexp: PROCE 
reoTazgs9 -*'PROCVOU:PROCenpr Race irby ReenEPROC | 
1G0TO293¢@ 

2988 IFFNEXxp ror BELPROCexps PROCPRI» BoTOZ9S9 
2998IFT1%< deco} PROCVDL (13) 1 PROCVDL (195 

BOSENDP: 


SO1QDEFFNEXP: =T xe] ue ORTZ= mi nus ORTXmi g ORTX%=1b ORTy 
=Pling ORTK=const ORTX=i nkey ORTX@=t i mer ORT%=tr ORTX=¢ 
1 ORTX=sqr ORTZerng ORTX=s6n ORTX=abs ORTA=get ORTimad 
Vv ORTX=pos ORTZ=vp05 ORT%=poi ORTXenot ORTL=FE pA ORTX=ar 

DEF; s 


SOR ODEFPROCExp 1 PROC term 

S868 IF Tymo- PROG cL PROC] term: PROCORA: GoTOSesg ELSEIFT 
%™eo0r NDPROG ROC! term: PROCEOR: GoToRai 

3@7@ENDPROC 

S@SQ@DEFPROC] term 


S180IF Tymang PROCL-X1 PROC] fact s PROCAND: GOTOS199 
$1 2QDEFPROCI ¢act:LocaL T1%1 PROCsex 


ELSEIFT1%=neq PROCNEQ 
3168ENDPROC 

317QDEFPROCsexp 

S18QIF Timp ug PROCLX:PROCterm ELSEIF TL=minus PROCLX:P 
ROCt erm: PROCNEG ELSE PROCterm 

S19OIFT Yep ug PROS PROCt erm: PROCADD: GOTOS1 99 ELSEIF 
TZ=minus RoC Xt PROCterm PROCSUB: saree oe 

S2Q@ENDPROC 


S288IFTY%=1b Or eX! PROC@xp 1 PROCL x» ENDPROG 


SROC] er ms PROC INK: ENDPROC 
S3OOIFTX=gqr pRoctX! PROC] arms PROCBOR, o 


342@PROCC (1) 

3430E 

S44QDEFPROCterm 

34 factor 

S468 IF Timti mos CX PREP ROC Factor 1 PROCHUL GoTOSaee ELS 
EIFTX=s) ash Y PROO ROCF actor PROCDIViaotosere 

S4781F Txmdi y PROCS ROCFactor sPROCDIV. Goreeege ELSEY 
FT%=mod prog ©! PROCF actor: PROCMODroorey see 

3480E; 

349@DEFPROC1 er m 

SSOCIF Timp lus PROCL Xs PROC#actor ELSEIF Temi nus PROCL Xx 
*PROCf actor :PROCNEG ELSE PROCf actor 

351 8ENDPROC 


SS8@LOCAL 1%: FOR Tx=iTois 

SeOOP RoE x! PROCEXs PROCE (comma) sNExT ; 

361 ODE eee xt PROCEXD: PROGENY: EmacNe 

Se2BDEFPRGG ETT PROCLKS PROCMNP PROCCAL.sENDPROG 
S62@DEFPROCGi ms LOCAL ST% ; 

S63@PROCL Xs IFTX< bar GOTO366e : 
S64O8TX@SN%) IE 8%? (SNX#3+1) <>g PROCEM (8) 1 PROCELP: ENDP 
ROC 


sSTa ext rarrnees oe S47 8TH43+2)  vPRaconasPRocann es, 
 3eea eek? (8TROSe1 mts goroRe ee 

S668IFTx< dig ENDPROC 

Se08 ir Tumccmne Go, t PROC OND PROCDMI PROCADRPH-3, ery, 
= e801F TX=comma: GOTOSe30 

S69QENDPROC 

S7QQDEFPROCgmas LOCAL 1% ; 
hdr apeewlice, fee reer ee 
8 


3720REPEAT ThTh~1 1 PROCexps IF Ix 59 PROCC (comma) : PROCL 
xX v ‘ 


S7aBP ROE teO!PROCC rb) s PROCL Xs ENDPROE 

CC (rb) rPRoEL Fe rascoMMas TkmTxe1sPROCLS aoTos7ag ELSEPR 
S7SODER ROSE X! BL? (STHASeD) aT LENT 

prog Nocnedst PROCL.IsPROCaserPADEEL (22) PRocvns, 
DPROC 


prog OCS®19¥PROGL Ks PROCeWB:PROCVDL (17) PRaCien 
DPROC 
EC (somne) PASSE POCLX*PROCUDL (18) sPROGexp:PRoGVns cn 


SC (Sonne) PROG PROCLE:PROCVDL (25) PRM va paces 
oc Drag PROCVDD: PROCC ‘commay oer 


>OCVODL PRO conn eT SAPPORO 23) PROBL) prove,, 


Jen, PROCVDL (5) 1 PROCExp 
2 *LPROCexp 1 PROCVDD: ENDPROS 
Sez TE Tener SP LOCALL xs PROGL Re eae 

OR 3848 


SB6@DEFPROCLEIx (sxx; 

$870. 1%=VAL S$ (nx) 

38881 %=@: REPEAT 

Kea) sak anesthe t2SGHL P8144 6842 cOxxes acy ces 
"Smee ee Aex**2) x9 cant asey «pean! 

SIOBWI Kel x44 

SPLQUNTIL 1% >=NLX 

S92BIF I xeNL % PROCEM (2) 


SIS@DEFPROCIFIx (gxx) 
(Sea) oT RTE EEREOHTE (86 (QNAD 1) 50%" tremgen ee 
Semen IMO TI eter scay Bet Rona ry 









X%+1) mIy DIV2561 8%? (8x%+2) a1 % MOD2S6; ENDPROC 

397O8%? (8X%+1 ) mpy DIV2561 8%? (6XX%+2) mpy MOD2S6: Pxepy+2 
1 ENDPROC 

S9B@DEFPROCAF Ix (Sxx) 

SP9OIFEX? (8xX%+1) ag PROCEM (9) 

40088%? (8xx%+1) apy, DIV2561 8%? (8x%+2) apy MOD2S461 Pxapy +2 
?ENDPROC 

SOzBE TSO ROCPFIX(SXX) 1 1FBX?(8x%61) ag PROCEM (3) 
4@2QENDPROC 

SOsmeN De TT EX (SXX) 1 18x? (8x%61) ag PROCEM (3) 
484@ENDPROC 

4@S@DEFPROCE 1 x 

4@6@PRINT’ "ET UP STAGE" 
sO7QEX=P%: SNX=Q1 REPEAT 


PS 
489@IF 8%? (3"SN%) wig PROCIFIX (3#gNx) ELSEIFS%? (3eSNx) « 
) 


a lappaagt CE!=4=(FXORLT) wu g@@aeE xen x 
a1 rR REPEAT! [km 7Px TF TZeaap Teens? 
415@1F (1%<640RT%>10@) P%=P%+11G0T04218 ELSEP%=py45 
4168IF 1%=7460T04219 

S17BIF I yZ=5g Se a eke ee Sihina) <tc cS 
S168IFP%2-1<¢59 GOT04268 

sz0ernccn Tt? !EX? NkeS+1) 1 PRPzeGr> aneesasy 
42@PROCRL 

421QUNTIL PX >mEy, 

A2Z20PRINT* "FIX UP Now COMPLETE" 
423@ENDPROC 

424Q@DEFPROCRL 
4250NK=256%P% 2-1 4py >_> 

4268 IFNX<&E@R® ENDPROG ELSENZ=NZ+RL x 
A 2OB Ee LaNXDIV2561PX?—ZeNKnON eee 
428GENDPROC 

4298 

ODEO ROCADD! PROCPP (1,2) s ENDPROG 
t32aD EEE OCoUB! PROCPP (114) ENDER OS 


SSR DEE OCeTT# PROCPP (1 19) senpees 
tSeaDE ROGET PROCPP (1112) | ENODROS 
aS 7ODE OCS! PROCPP (114) | ENDOROS 
BSoODE TOR OSLEG! PROCPP (114) fENoE ROS 
Soe DE TE OU! PROCPP (1 18) | ENOE ROS 


4Seeenoenog 2 *%?! TFENECS) + 7P20461 17101 21 Prepyeg 
ROC 


ACODER OSEND! PROCPP (150) 1 ENDPROG 
tS Taper OROCLDT # PROCPP (1/52) | ENOEROC 


eo eR oeT XR! PROCPP (3, 7a) FENDD ROS 

Be oO DEE OCEDM! PROCPP (3, 0g) sENOE ROS 

4 70e DE ROCSTM: PROCPP (3 a2) ENDO ROS 
PROC 


474@ENDPROC 
4758DEFPROCVDS 
4768 IF FNC (2+LENS¢) PPAN 1 PX7L=LENSS: $(PX62) a6; Preps 
+2+LENS$ 

477@ENDPROC 
478@DEFPROCCL 
479@1F FNC (2+LENS$) TERS TUTX?ISLENES: 6 (805) caat pet 
+2+LENS$ 

S488GENDPROC 

NOTE oCeOR! PROCPP (1, 182) + ENDPROG 


S9SOIFP%<cy OR P%+2dEy ENDPROC 
4968P%72=AxDIV256 

497@P%? 1 =AxMoD254 

498@ENDPROC 

4998 

S@®@QDEFFNC (Bx) 

S@1QIFP%+By ee SNASENK*+1 1 E%@E%—Bxs aE AL oe ELSE: «TRUE 
PE PODEFPROCERT: PRINT"<RETURGS TO CONTINUE “pSREPEAT y 
NTIL INKEY~743 PRINT: ENDPROC 

S@3@DEFPROCEM (1%) 

S@4QENX=ENY+1 

SOS@IFI y=} PRINT’ "missing alah: 

S@6OIFIy=2 PRINT‘ "no Such line number "+S (SNX) 
SO7OIFIxa3 PRINT’ "no Such fn/proc “+88 (SNX) 
S@SOIF1y=4 PRINT’ "to5 many variables" 

S@9OIF I yas PRINT ' “program needs "SNL%" lines" 
Si@OIFI ym, PRINT’ "program needs "PZHMCK+CX-Ex, « bytes 


SI1GIFIZ%a7 PRINT ' “syntax error :« 

S120IF I %Z=ag PRINT‘ "array already dim’d" 
SISOIFIya9 PRINT’ “array "+8$ (SNX) +H not dim’g" 
51 4@PROCERT: ENDPROC 

S1S@DEFPROCC (px) 

S16@IF ELx ENDPROC 

Si7@IF TK=Dy% ENDPROC 

S1G@PRINT ‘missing | 

SIPQEL X= 1X1 TKMAX: AXMDY 

S208IFAx>32 ANDAX< >1ing THEN CALL TK ELSEIFAx%@ig PRIN 
T"id / variable" ELSEIFAxe~,- PRINT" array dim"; ELSEIFA 
%=1 PRINT" expression"; ELSEIFAX@1 ing PRINT" ling number 
"3 


S220DEFPRGee TN"! IPRINTs THm@1 PROCERT: ENDPROG 
522@DEFPROCEL Pp 
S230IFELX%=@01 OR EL%meop YA"EL% + ELX=FALSEs ENDPROC 
S24QEL X=FAL SE: REPEAT PROCL Xs UNTIL TK=e@0ln ORTX=e@op 
S2S@ENDP 


S26@DEFPROCEE 
S27@PRINT * "penx, 1 ERRORS - COMPILATION STORPED« 
S28@ENDPROC 

S29@DEFPROCNE 

SS@QPRINT ' “COMP ILAT ON COMPLETE" 

S31@ENDPROC 

SS2@DEFPROCT _ 

SS3OFORIX=aTO23 

Sse 29+ (1%/2) MODS, 157,141,158 

SSS@PRINT" <<< TC. Bagrc COMPILER >> 5x 
S36@NEXT, TReINKEY15@:CL8 = 
S37@ENDPROC 


















































ae ee ee eS ee 


LOREMS== 2252 se s==== 
2@GREM Sh at LASTS 

ZQREM ~RTS GENERATOR 

4@REM (oc) ake ELTA 

SQ@REM January i785 

Rane Hes aeere Pee seen re et 


‘ 


B@REM enter the usuai value of page 
9@REM for your system in line 110 


108 
11Q@page%=%xEOO 


120 

1 3@PROCSETUP 

1 AWBPROCASSEMBLE 
1 S@PROCJUMPTAB 
1 6QPROCF INISH 
170END 


188 

1 9@DEFPROCASSEMBLE 

2@0Q@FOR pass=OTOS STEP 3 
210P%2RT 

22@CoPT PASS 

238 

oa0. START 

250 PLA:STA RL:PLArSTA RH 
260 TSX:STX 


3@@ INY:LDA (PL) ,Y:STA FVH 

310 LDY#@:STY FP 

320.SVS LDA#@: STA (R1iL) ,Y 

330 LDA FVH: CMP RiHsBNE SVI 

340 LDA FVL: CMP RiL:BE@ SVX 

350.SVI1 INCRiL: BNE SVS: INCR1H: BNE SVS 
360. SVX LDA#4 . 

370 


SR 
39@ CLC:ADC PL: STA PL:BCC SF 


41@.5X INC PL:BNE SFsINC PH 
420.SF LDY#@:LDA (PL) ,Y¥# TAX 
ASQ LDA JT,X#STA JTL: INX 
440 DA JT,X:STA JTH 
450 JMP (JTL) 

460 

470.FVL BRK:-FVH BRK 

480 


490. add 
500 PLA:STA RiL:PLA:STA Rix 


510 PLA: CLC: ADC RiL: TAY 

520 PLASADC RiHs PHA: TYAIPHA 
530 JMP SX 

540 

550. sub 

560 PLA:STA RiL:PLA:STA R1iH 
578 PLA SEC: SBC RiL: TAY 

560 PLA: SBC RiH: PHA: TYA: PHA 
599 JMP SX 


688 

618. mul 

620 LDA#@:STA SG 

63@ PLA:STA RiL:PLA:STA RiH 
640 BPL M2 

650 LDA#@: SEC: SBC RiLiSTA RiL 
660 LDA#@:SBC RiH:S8TA RiH 

670 LDA#1:STA SG 

680.M2 PLA:STA R2L:PLA:STA R2H 
690 BPL MS 

790 LDA#@: SEC: SBC R2L:STA R2L 
71@ LDA#@:SBC R2H:STA R2H 


s 
730.M3 LDA#@:1STA R3L:STA RSH 
748 LDXx#16:LDA RiH:BEQ ML 
75@ LDY R2H: STA R2H: STY RiH 
760 LDA RiL:LDY R2L:STA R2L:STY RiL 
770.ML CLC:ROR R2H:ROR R2L 
78@ BCS MA 
790.MC CLC: ROL RiL:ROL RiH 
Baa DEX: BNE ML 
810 LDA SG:BEQ MX 
828 LDA#@: SEC: SBC RSL: TAX 
838 LDA@: SBC R3H: PHA: TXAs: PHA 
e40 JMP sx 
@5@.mMx LDA R3H: PHA: LDA R3L: PHA 
848 jmp SX 
87a.MA LDA RiL:CLC:ADC R3L:STA RSL 
e8a@ LDA R1iH: ADC R3H:STA RSH 
89a IMF MC 
980 
910.div 
9208 LDA#@:STA SG 
930 PLA:STA R3L:PLA:STA RSH: TAX 
94@ GORA R3L:BNE Dk 
958 LDA#Be: IMP EXIT 
96@. DK TxA: BPL D2 
978 LDAK@: SEC: SBC RAL:STA RSL 
988 LDA#@: SBC R3H:STA R3H 
993 LDA#1:STA SG 
19@@.D2 FLA: STA R21.:PLA:STA R2H 
101@ RPL Ds 
1928 L DA#H@: SEC: SEC K2L:STA R2t. 
1822 LDA#@: SBC ROH: STA R2H 
1242 _DA#1:EOR SG:STA SG 
1@5@.D3 JSR DM 
1@68 i-DA SG:REQ DX 
1878 LDAe@: SEC: SBC R2L: TAX 
. 1880 LDA]: SBC ROH: FHA: TXASFHA 
1@9@ JMP Sx 
119@.Dx LDA R2H: PHA:LDA R2UZFHA 
1110 JF Ss 
112@.0M 
1128 i DAR@:STA Hit.:STA RIH 
1148 LOxe1e: Cro 
{158526 
116@ FECL R2_:ROL RH 
117@ &Ot- Fil :ROL Pitt 


cd 


YOUR COMPUTER, JUNE 1985 





41280 1 DA R2H: CMF Kit: BED ye 
119@ RCS p@:BCC Di 


1200.D@ LDA R3L: CMF RiL:BEQ Di 
121@ BCS p@:Bcc Di 
1228.08 cLC:BCC DN 


1238.D1 
124@ LDA RiL:SEC:SBC RSL:STA RIL 


125@ LDA RiH: SBC R3H:STA RiH: SEC 
1268. DN DEX: BNE DL 

1270 ROL R2L:ROL R2H:RTS 

1289 


1290.mod 

1308 LDA#@: STA SG 

1310 PLA: STA R3L:PLA:STA RSH: TAX 
1320 ORA R2L:BNE Ok. 

1220 LDA#88: IMF ear 

1340. OF TXA: BPL 02 

1350 LDA#@: SEC: SBC R3L:STA R3L 
1360 LDA#O: SBC RSH: STA RSH 
1270.02 PLA: STA R2L:PLA:STA R2H 
1380 BRL Oo3 

13908 LDA#@: SEC: SBC R2L:STA R2L 
1420 LDA#@: SBC R2H: STA R2H 

1410 LDA#1:STA SG 

1420.05 gsR DN 

1430 LDA SG: BEQ OX 

1440 LDA#@: SEC: SBC RiL: TAX 

1450 LDA#@: SBC RiH: PHA: TXA:PHA 
1460 JMP Sx 
147@.0X LDA RiH:PHA:LDA RiL:PHA 
1480 JMP Sx 

1499 


150@.gtt 
1518 PLA: STA RiL:PLA:STA Ril 


152@ PLA:STA R2L:PLA: STA R2H 


R CP 
154@ BEG CF:BM!I CF:BNE CT 


1558 


1560.1tt 
157@ PLA:STA RiL:PLA:STA Rix 


1580 PLA:STA R2L:PLA:STA R2H 
1590 JSR CP 

1600 BEQ CF: BPL CF:BNE CT 
1618 


1620.9e89 
1638 PLA: STA RiL:PLA:STA Ri 


1640 PLA:STA R2LtPLA:STA R2H 
165@ JSR CP 

1660 BMI CF:BPL CT 

1678 


168@.1eq 
1690 PLA:STA RIL:PLA:STA RiH 


170@ PLASSTA R2L:PLA: STA R2H 
171@ JSR CP 

172@ BPL CL: BEG CFrBNE CT 
173@.CL BNE CF:BEQ CT 

1740 


1750. equ 
176@ PLA:STA RiL:PLA:STA RiH 


177@ PLArSTA R2L:PLA: STA R2H 


1780 JSR CP 
179@ BMI CF: BNE cF:BEQ CT 


neq 

1820 PLA:STA RiL:PLArSTA Rin 
1838 PLA: STA R2L: PLA: STA R2H 
1848 JSR cP 

185@ BEQ CF:BNE CT 


189@.CP LDA R2L1 CMP RiL:BE@ CO 
190@ LDA R2H:t SBC RiH:ORA #1 

191@ BYS co:RTS 

192@.CQ LDA R2H: SBC Ris BVS corRTs 
1930.cO EOR #%80: ORA #1:RTS 

1948 


1950.neg 
1968 PLA:STA RiL:PLAISTA Ri 


1978 LDA#@: SEC: SBC RiLs TAY 
1980 LDAg@: SBC RiH: PHA: TYA: PHA 
199@ JMP SX 
2882 
201@.vdu 
2022 PLA: JSR OSWRITE:PLA 
2030 JMP SX 
2048 
205@. ink 
2068 PLA: TAX: PLA: TAY 
2878 LDA#&B81: ISR OSBYTE 
2088 TYA: CMP#&FF : BEG IT 
2098 CMP#&1B: BEQ IE 
2100.I1R TYA: PHA: TXA: PHA 
2110 JMP sx 
212@.1E LDA#&7E: JSR OSBYTE 
2138 LDX#@: LDY#@: JMP IR 
2140.1T LDX#&FF : IMP IR 
2150 
2168.rts 
2178 PLA: STA PL:PLA:STA PH 
218@ JMP SF 
2198 
220@.1di 
2218 PLA:STA RiL:PLA:STA Ri 
2228 LDA#@: PHA 
22308 LDY#@:LDA (RIL) ,Y:PHA 
2242 IMP SX 
2258 
2268. sti 
2278 PLA: TAY: PLA: TAX 
2280 PLA:STA RiL:PLA:STA R1iH 
2298 TYA: LDY#@:STA (Rit) ,Y¥ 
2220 LDA#@:LDY#1:STA (RiL) ,Y 
231@ JMP SX 
2328 
2330.end 
2340 LDA#44: JMP EXIT 
2358 
2360.pri 















































































This article is 
available on the 
Telsoft service. 







































































































































eis PLASSTA RIL: STA R2L 
@ PLA:STA RIH: STA R2H 
2390 BRPL FR a 
240@ LDA #@:5E 

toce 
2410 SBC RIL 

me : 
2420 pets TA RIL: STA R2L 
ars nee soba RiLH: STA R2H 
ica -":JSR OSWRITE. 
2468 LDA#@:STA SG 


24 

pt rent Holes MOD256:STA FA2L 
2490 pein DIV256:STA RSH 
aia ae : le MOD256: STA RSL 
abs pal DIV256:STA RIH 
obs LDA #1@@:STA RSL 

54@ LDA #@:STA R3H 

ate JSR FS 

56@ LDA #10:S 

eS 3S 

2578 JSR PS Bt 


2580 LDA #1:STA R3L:STA SG 


2598 JSR PS 
2602 JMF Sx 
2610.88 LDX#0 — 
620. 

@.PP LDA RiL:SEC:SBC R3L:STA RIL 


2630 LDA R1H: 
ae dee ee :SBC R3H:STA R1H 


2658 STA R2H: 7 
L 
Ste 


2678.PE LDA R2 
L:STA 
sare LDA R2H:STA bay 
ashe oe ae PR:LDA SG:BEQ PX 
-PR TXA:CLC:ADC #ASC"Q" 























ae 1946 BEG Urine 

































4980 
ratera nae 1S60.1tt 
HiBNE OF sai ny PLANTA | RILIPLADBTA RiH 
“PLIBNE SFHINC PH teem PLAISTA RZLtPLANBTA R2M 
Y#Or LDA (PL) Ys TAX : ve / 1590 JSR CP ff \: 
T,X1STA JTLSINX aie 1608 BEQ CF: BPL CF:BNE CT 
:STA JTH © Fe SO SS it a ae a | 
babs eco ne aa aia AAAS -1620.9eq i 
MAEM Rie gaat Phares Mone name PLA: STA RiLsPLA:STA RIH 
ee ae nian 1648 PLA:STA Bal ae tere R2H 
Seat: mye Tae hE JSR CP * 
hE EO a ee CFI BPL Ohi a aes ot 
ay ec :STA RiH ae ee ts ae ah 
-C:ADC Ril: TAY On raat 1680.1eq° “ithe 
apc Pins PHALTYA PHA eS ae Reh om eee PLA:STA ais Ypeaiete RIM 
OTN urea Re ee th 170@ PLA:STA R2LaPLASSTA R2H 
St hee er SAT OR Re ts cP | 
ee DAE RORRCEN BORE sa 4720 BPL CL:BEQ CF: BNE et cat 
RiL:PLA:STA R1iH eer AMMEN a 1730.CL BNE ae ro ae i 
=,SBC RiLsTAY.. TC YR 1740, 
B Rinenat Tha iti ae eae ee, equ aby 
Neca Poko aaa 1768 PpLarsTA ee ee Bab 
tact), ne roe Sv Rh 177@ PLArSTA R2L1PLAr STA R2H — 1 Na 
ene. Les vs 178@ JSR CP ; | 
LDA Pee at Sp gaat pai Rr eats ea ee tie 1790 BMI CF1BNE oF: BEG or: aes 
ae sai RICsPLALSTA RiH- rage ERE WE ain i ay ‘ i fe 
BR Me ee EMS Vote imam te a RN Noe 
DAKO: TSEC: SBC RiLiSTA RIL a 8 1828 PLAISTA RiLdPLarSTA wii ha vigh | 
Awa: SBC R1H: STA RiH | FAN Wg Ae * 183@ PLA:STA R2LEPLALSTA R2H ia 
Av1i:STA SG ih ANG dls Sak) Sa” 1840 JSR CP BK 
Pare R2LiPLALSTA Bs ae Fh 2k eer BEQ CF: BNE cT 
M3 #° Ca te: aa 1860 she 
@1SEC:SBC R2L:STA RL A ee 1870-CT _pawre1PHAsPHA IMP => 
@:SBC R2H:STA R2H Es ey RY RC SS 0 ea LDA#& OA: PHAr PHA: IMP 8X 
1:EOR SG:STA SG_ fe ai ae OF LDA R2L+CMP RiL:BEQ CO 
"DAWGISTA RSLISTA RSH eh OG one a LDA Rava R1H:ORA #1 
#16:LDA RiH:BEQ ML Wich Be ie NE eee BYS COR 
"R2H:STA RZH:STY R1H i) Veh hh SRO « .c@ LDA e2Hs SBC RiH:BVS” corRTS 
RIL:LDY R2L1STA R2LiSTY 2 A le i h. 1938. co Pricnintk 5 ay 
os age am ea R2L he ily si ona. 
Les ROL RILSROL RIH hee Prom ‘ 60 “DLAs STA Si ALTA RiH 
oe Me Sie aM a ala 1970 LDA#@: SEC: SBC lig TON ky 
~§G:BEQ MX arti CE Sh a ON Lpaw@:SBC RIH:PHA: TVA: PHA ‘al 
#@:SEC: SBC ROLE TAX Kaa eee he 1998 IMP SX Bekah 3 j 
30 DA#@: SBC RSH: PHA: TXA: :PHA icy enn (2000 RRR Ra aR 
Sx ah at) OS 2018. vdu mai : 
‘LDA RSH: : PHA: se Bes RSL PHA ee eng 2020 PLA:JSR: OGWRITE:PLA ' 
SX Pn  203@ JMP SX 
LDA RiL: CLC: : ADC RSLESTA, RSL it peel aa 2040 + Ans 
. DA R1H: : ADC RSH: :STA RSH © Laas, et 2058. ink th | zi, 
fA) ME Re yh Hopes : ae iyi La PLA: aah CLaNTAY ‘ 
sy way. d i ‘4 5 Ramee Cw ora 5270 LDA#&B1:JSR OSBYTE 
ae eh A ORY: pole A —-g@Ba TYA: CMP#&FFs BEQ IT b 
:STA SG i HO et CAR tive 2090 CMP#&1B: tBeEQ IE ha a 
a :STA R3L: PLA:STA RSH: TAX Nee —- 2108. va TYA: PHA: TXA: PHA 
@ OGRA R3L:BNE DK as He aah he a 2110 JMP SX ‘ 
pawea: INP EXTT Aah Hi AS OR aia Eins opaae kane IE P paAe&7E:ISR OSBYTE . 
yarBPL D2 Pomc ay ce ok Py 7130 LDX#@:LDY#@sdMP IRD Ana 
AHO: SEC: SBC RSL: STA RSL TW a yield (2140. 1T LOKGEEN Sy jas 
32 LDA#@: SBC Rane STA BEB RRs Sh | 2150 . 
29 LDAHI:STA SG aie cc Seek rts | } 
D.D2 PLA:STA RL. PLAS STA ROH "le can 2170 PLA: STA PL: PLAIBTA Pa es 
ae Oe Bad Mea ho i 2180 JMP SF 
DAHO: SEC: SEC R2LESTA R21. ata Crude i ee ee ue Pi ge 
DA#@:SBC R2H: +STA R2H ba ice BM mice <2? 6S MER Cee 
JAH1:EOR SG:STA SB” HAAG Mea etuies G ie Te 2210 PLA: sta Aaa aaa 
‘JSR DM BPs Seb it arn a 9220 LDA#@:PHA hs 
“LDA SG: REQ DX ae uae ead Mie ay Seem LDY#@:LDA a he PHA 
LDA#O: SEC: SBC. RAL: TAX se ae POUND EN aren OSs oi 2 F 
@ LDAKO: SBC ‘R2H: FHA: TXA: FHA. : an staf aes ry 2250 fy 
QSMP (EX os Sikes caneetumnne DM ey ee RAG 
% LDA R2H: PHA: LDA R2U+ PHA ho oO a PLA: TAY: PLA? Teer . 
a hea 8 hy An ig ‘ ues i aa eta (2280 PLA:STA RiL:PLA:STA Rix 
DDN ieee he ea apis. Nol Ne 2290 TYA:LDY#@:STA (RAL) Y 
“LDARO: STA W1LrSTA, RIH eae - Szg@ LpA#@:LDY#1:STA (RiL) 5 
LDX# 16: cue Codey TSravarchaal yan) yea gees JMp SX rr 
ha Ome ean Tha Ef one MORNE 2320 a 
PAL ROL. aah Tat tala oe Pe dail EArt Hee tne RE 
Ol. Fire ROL ce ay anny ae 9340 LDAK4S4: gMP EXIT 


pa ieee (2350 
ay! he ns we on 2368. pri 


rer 
Sa ona a aoe eR oc RRR ena 
ceenececnomatns 










AD J Piling continues 
his compiler for the 
BBC. If you’re speed 
Crazy this program is 
for you. 





































JSR OSWRITE 3852 PLA: STA RiL:PLA:8STA R1H 339Q LDY#14 

2728 LDA#1:STA SG 3868 LDA#7:JSR OSWORD: JMP Sx 3480.RLO LDA R2:AND#946:STA RIL 
2730.PX RTS 3072 3410 ROL A 
2748 3088.1ldt 3428 EOR RiL:ROL A:ROL A 
2758. dup 3290 LDX# RiL:LDY #@ 3430 ROL Ri:ROL R2 

" 2760 PLA: TAY:PLA: TAX 3182 LDA#1: JSR OSWORD 3442 DEY: BNE RLO 
2778 PHA: TYA: PHA: TXA: PHA: TYA: PHA 311@ LDA RiH:PHA:LDA RiL:PHA 345@ LDA R2:AND#127:STA R2H 
278@ JMP Sx 3120 JMP Sx 346@ LDA R1:STA R2L:JSR DM 
2798 3130 3470 LDA#i:CLC:ADC Ril: TAY: LDAK@ 
2800. swp 3148.stt 3480 ADC R1IH:FHA:TYA: FHA: IMF Sx 
2810 PLA: TAY:PLA: TAX 315@ LDX# RiL:LDY #@ 349Q.RX LDA#1:STA R1:STA RZ 

° 2820 PLA:STA RIL:PLA:STA RIH 3168 PLA: STA RIL:PLA:STA R1iH 3500 LDAH@: FHA: LDA#1:FHA: IMF Sx 
283@ TXAs:PHA: TYA:PHA 3170 LDA#@:STA R2L:STA R2H:STA RSL 3510 
2840 LDA R1H:PHA:LDA R1L:PHA 3180 LDA#2:JSR OSWORD: JMP Sx 3520. jsr 
285@ JMP sx 3190 3530 LDA PL: CLC: ADC#3: TAY 
2868 320@. and 3540 |.DA FH: ADC#O 
2878.drp 3218 PLA:STA R1iL:PLA:STA R1H 755Q@ FHA: TYA: FHA 
2880 PLA:PLA: JMP Sx 3228 PLA: TAX:PLA: AND RiH:PHA 2540 
2898 3230 TXA: AND R1L:PHA:JMP SX 3578. jm 
2908. vdd 3240 358@ LDY#i:iL DA (FL) ,Y: TAX 
2918 PLA: JSR OSWRITE 3252.ora 259@ LDY#2:LDA (FL),¥:STA PH 
2928 PLA: JSR OSWRITE 3260 PLA:STA RiL:PLA:STA R1H R600 TX: STA PL 
293@ JMP Sx 3270 PLA: TAX:PLA:ORA R1iH:PHA 2610 UMP SF 
2948 3280 TXA:ORA RiL:PHA:JMP SX =420 
2958. vdl 3298 Siti sme 
2968 LDY#1:LDA (PL) ,Y 3302. eor 3642 PLA: BNE Ci 
2978 JSR OSWRITE 331@ PLA:STA R1IL:PLA:STA R1H 3650 PLA:BNE C2 
2982 LDA#2:JMP SR 3320 PLA: TAX:PLA:EOR R1iH:PHA 3668 BEO jmp 
3028. snd 3340 .Ri RTS:.R2 RTS 368@.C2 LDA#D:JIMF SR 
3018 LDX# RIL:LDY #0 3350 36908 
3820 PLA:STA R4L:PLA:STA R4H 3368. rnd 3700. 1da 
3$@3Q@ PLA:STA R3L:PLA:STA RH 3378 PLA:STA R3L:PLA:STA RSH 
3840 PLA:STA R2L:PLA:STA R2H 3288 BMI 
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RX:ORA R3L:CMP#2:BCC RX 








4949 
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371@ LDY#1:LDA (PL),Y:STA RIL 

3720 LDY#2:LDA (PL),Y:STA R1H 

373@ LDY#1:LDA (R1L),Y:PHA 

3748 LDY#@:LDA (R1L),Y:PHA 

3750 LDA#3:JMP SR 

3768 

377@.sta 

37B8@ LDY#1:LDA (PL) ,Y:STA RIL 

3798 LDY#2:LDA (PL) ,Y:STA R1H 

3888 LDVY#O:PLA:STA (R1iL),Y 

3810 LDY#1i:PLA:STA (R1L),Y 

382@ LDA#3:JMP SR 

3830 ; 

3840. 1d1 

S85@ LDY#2:LDA (PL) ,Y:PHA 

3860 LDY#1:LDA (PL),Y:PHA 

3878 LDA#3:JMP SR 

3880 

3890. fxr 

3900 LDX FP:LDY#7 

3971Q.FXL LDA FAL, Y:STA&5@Q, x 

3920 INX:DEY:BPL FXL:STX FP 

3930 LDY#1:LDA (PL) ,Y:STA FAL 

3948 INY:LDA (PL) ,Y:STA FAH 

3958 FLA:STA FSL:PLA:STA FSH 

2960 PLA:STA FLL:PLA:STA FLH 

3970 LDA#S:CLC:ADC PL:STA PL:STA FIL 

398@ LDA#@:ADC PH:STA PH:STA FJH 

3990 JMP SF 

42200 

4012.1dm : 

4020 JSR GTA:LDY#1:LDA (R3L),Y¥:PHA 

4030 DEY:LDA (R3L) ,Y:PHA:LDA#3:JMP SR 

4042 

4050. stm 

4@60 PLA: STA R&6L:PLA:STA R6H:JSR GTA 

407@ LDY#1:LDA R6H:STA (R3L),Y 

4@8@ DEY:LDA R6L:STA (R3L),Y 

4092 LDA#3:JMP SR 

4100 

4118.dmm 

412@ LDV#1:LDA (PL) ,Y:STA RIL 

4130 INY:LDA (PL) ,Y:STA R1H 

414@ DEY:LDA FVH:STA (RIL) ,Y 

415@ DEY:LDA FVL:STA (R1L),Y 

416@ PLA:CLC:ADC FYVL:STA FYL 

4178 PLA: ADC FVH:STA FVH 

4182 LDA#3:JMP SR 

4198 

4202.dma 

4210 LDY#1:LDA (PL) ,Y:STA RIL 

4220 INY:LDA (PL) ,Y:STG@ R1IH 

4230 DEY:LDA ‘(RiL) ,V¥:DEY:0RA (Ril) ,Y¥ 

4240 BEQ DMY:LDA#33:JMP EXIT:. DMy 

425@ INY:LDA FVH:STA (RIL) ,Y:STA RSH 

4260 DEY:LDA FVL:STA (R1L),Y:STA RSL 

4270 FLA:STA R4L:STA (RSL) ,Y 

4280 INY:PLA:STA R4H:STA (RSL) ,Y 

4292 LDA R4L:SEC:SBC#! 

4300 CLC:ROL A:CLC: ADCH4 

431@ CLCsADC RSL:STA R&L 

4320 LDA#@:ADC RSH:STA R6H 

435@ INY:LDA R6L:STA (RSL) ,Y 

4340 INY:LDA R6H:STA (RSL) ,Y 

4350 STY R7H:LDA#@:STA R7LESTA R2H 

4369 LDA#2:STA R2L 

4370.DMLB LDA#@:STA R3L:STA R3H 

438@ PLA: CLC: ADC#1:STA RIL 

4390 PLA: ADC#O:STA R1IH 

4400 JSR AX: INC RIL 

4418 LDA R7L:CMP R4L:REQ DMLA 

4420 LDY R7H 

4430 INY:LDA R3L:STA (RSL) ,Y:STA R2L 

4440 INY:LDA R3H:STA (RSL) ,Y:STA R2H 

4450 LDA#@:STA R3L:STA R3H:BEQ DMLE 

4462. DMLA 

4478 LDA R6L:CLC:ADC R3BL:STA FYL 

448@ LDA R6H:ADC R3H:STA FYVH 

4492 LDY#O : 

4582.DAL LDA#@:STA (R4L) ,Y 

451@ LDA FVH: CMP R6H: BNE DMI 

4520 LDA FVL:CMP R6L:BEQ DMx 

4530.DMI INCR6éL:BNE DAL: INCR6H:BNE DAL 

4542.0MX LDA#3: IMP SR -- 

4550.GTA 

456@ PLA:STA R7L:PLA:STA RTH 

4570 LDY#1:LDA (PL) ,¥:STA RIL 

458@ INY:LDA (PL) ,Y:STA RiH 

4590 DEY:LDA (R1L),Y¥:STA RSH 

4600 DEY:LDA (RiL),Y:STA R5BL 

4610 ORA RSH: BEQ GTZ 

4620 LDA (RSL),Y:STA R4L 

4630 LDY#2:LDA (R5L),Y:STA R3L 

4640 INY:LDA (RSL) ,Y:STA R3H 

465@ PLA:STA RIL:PLA:STA R1H 

4660 CLC:ROL R1L:ROL R1H 

4670 LDA RiL:CLC:ADC R3L:STA 

4688 LDA RiIH: ADC R3H:STA RH 

4698 LDA R4L:CMP#1:BEQ GTX 

470@ LDA#1:STA R4H 

471@.GTL PLA:STA RiL:PLA:STA 

4728 INY:LDA (RSL),Y:STA R2L 

473@ INY:LDA (RS5L),Y¥:STA R2H 

474@ JSR AX: INC R4H 

4750 LDA R4H:CMF R4L: BNE GTL 

4768.GTK LDA R7H:PHA:LDA R7L:PHA:RTS 

477@.GTZ LDA#11:I9MP EXIT © 

ATED. AX 

4792 _DX#8:LDA RiH:BEQ DML 

4820 LDY R2H:STA R2H:STY R1IH 

481@ LDA RIL:LDY R2L:STA R2L:STY RiL 

482@.DML CLC:ROR R2H:ROR R2L:BCS DMA 

4830.DMC CLC:ROL RiL:ROL R1iH 

4840 DEX: BNE DML:RTS 

485@.DMA LDA R1iL:CLC:apc R3L:STA R3BL 

pi LDA R1H: ADC RSH:STA R3H: UMP DMC 
72 


4880. vds 

4890 LDY#1:LDA CRED iS: 

49@@ TAX: INY 

491@.DS LDA(PL),Y¥:JSR OSWRITE 
4920 INY:DEX:BNE DS 

4930 TYA: IMP SR 


495@.cli 

4968 LDA PL:CLC: ADC#2: TAX 

497@ LDA PH: ADC#@: TAY 

498@ JSR OSCLI 

499@ LDY#1:LDA (PL),Y:CLC:aDCce2 
5@0@ JMF SR 

5@1@ 

502@.sqr 

5@3@ PLA:STA R4L:STA RSL 

5@4@ PLA: STA R4H:STA RSH 

5@5@ BMI QE 

5@6@ CLC:ROR RSH:ROR RSL:LDA#1@:STA SG 
587@.0A 

508@ LDA R4L:STA R2L:LDA R4H:STA R2H 
5090 LDA RSL:STA R3L:LDA RSH:STA R3H 
510@ JSR DM 

511@ LDA R2L:CLC:ADC RSL:STA RSL 
512@ LDA R2H: ADC RSH:STA RSH 

513@ CLC:ROR RSH:ROR RSL 

514@ DEC SG: BNE QA 

515@ LDA RSH:PHA:LDA RSL:PHA 

5168 JMP Sx 

5178.QE LDA#22: JMP EXIT 

518@ 

5198. sgn 

5200 PLA:STA RiL:PLA: BMI SM 

521@ ORA RiL:BEQ@ SZ 

5220 LDA#@O: PHA: LDA#1:PHA: IMP SR 
5230.SM LDA#&FF:PHA:PHA: JMP Sx 
524@.SZ LDA#@:PHA:PHA: IMP Sx 

5258 

5268. abs 

527@ PLA: STA RiL:PLA:BMI AM 

5280 PHA:LDA RiL:PHA:JMP §x 
5290.AM STA RiH:LDA#@:SEC:SBC RIL 
S3@@ TAX:LDA#@:SBC R1iH:PHA: TXA:PHA 
5318 JMP Sx 

5328 

S338.get LDA#@:PHA 

5348.gp JSR OSRDCH:BCS ge 

S35@ PHA: JMF Sx 

536@.ge CMP#27:BNE gp 

5378 LDA#124: JSR OSBYTE: BNE gp 
5388 

539@. adv 


548@ PLA: TAX:PLA: TAY: LDA#&.8@ 

541@ JSR OSBYTE: TYA: PHA: TXA: PHA 
542@ JMP Sx 

5438 

5448. pos 

545@ LDA#&846:JSR OSBYTE: LDA#@: PHA 
5462 TXA:PHA:JMP Sx 

547@ 

548@.vpo : 

5492 LDA#&86: JSR OSRYTE: LDA#@: PHA 
550@ TYA:PHA:JMP Sx 

5510 

5520. poi 

S530 PLA:STA R2L:PLA:STA R2H 

554@ PLA:STA RiL:PLA:STA RiH 

S550 LDX#RiL: LDY#@:_LDA#&9: ISR OSWORD 
5568 LDA R3L:CMP#&FF:BEQ PM 

5578 LDA#@:PHA:LDA R3L:PHA 

5580 JMP Sx 

5598.PM PHA: PHA:LDA#1:JMP SR 

54680 

561@.cal 

562@ PLA:STA RiL:PLA:STA R1H 

563@ LDA#( (CR-1)DIV256) : PHA 

3648 LDA#<( (CR-1)MOD256) : PHA 

5658 LDA&48C:ROL A:LDX&460:LDY&464 
566@ LDA&404: IMP (RIL) 

5670@.CR JMP Sx 

5688 ? 

5698.not 

578@ PLA:STA RiL:FLA:STA RIH 

571@ LDA#&FF:SEC:SBC RIL: TAY 

572@ LDA#&FF:SBC R1iH: PHA: TYA: PHA 
5720 JMP Sx 

57492 

575@. env 

5760 LDX#1i7:LDY#14 

577@.EL PLA:STA RiL,X:PLA 

578@ DEX:DEY:BNE EL 

5790 LDX#RiL:LDY#@:LDA#&8: JSR OSWORD 
S800 JMF Sx 

5818 

5820.rt¢ 

5830 FLA: TAY:PLA: TAX 

3840 PLA:STA FL:FLA:STA FH 

585@ TXA:PHA: TYA: PHA 

3860 JMF SF 

5870 

S888. nxt 

589@ LDY#@:LDA FSL:CLC:apDC (FAL) ,Y 
5982 STA (FAL) ,Y¥:STA RSL 

S91@ INY:LDA FSH:ADC (FAL) ,Y 

5928 STA (FAL) ,Y:STA R3H 

S920 iDA FSH: BPL NF 

5940 LDA R3L:SEC:SBC FLi. 

595@ LDA R3H:SBC FLH 

596@ BYS NN: BMI NE:BPL NN 

5S978.NP LDA FLL:SEC:SBC RZL 

S980 LDA FLH:SBC R3H:BYVS NN: BMI NE 
5990@.NN LDA FJIL:STA PL:LDA FJH:STA PH 
6000 JMF SF 

6@10.NE (DX FF:LDY#@: DEx 

6820.NXL LDA &5@0,xX:STA FAL ,Y 
6030 DEX: INY:CFY#8:BNE NXL:INX:STX FP 


6040 JMF Sx 


6850 

6060.EXIT 

6878 STA SG 

608@ LDA SP:TSX:STX SF:TAX:TXS 


6@92 LDA RH: PHA:LDA RL:PHA 

618@ RTS 

6118] 

61 20NEXKT 

61 3@ENDPROC 

6140 

615@DEFFROCSETUP 

6160PL=&7@; PH=&71:ITLE&72: JTHERTS 
6170R1L=&74: RIH=&75: R2L=&76: RZHERT7 


618@R3L=&78: R3H=&79: RAL=27A: RAH=%7B 
619@RSL=&7C: RSH=&7D: R6L=RTE: REHERTE 
6200R7L=&80: R7H=&8B) 
6210SP=&82: SG=&83: RL=2.84: RH=&.B5 
6220FAL=&86: FAH=&87: FLL=&88: FLH=&B9 
6230FSL=&B8A: FSH=& 8B: FIL=&8C: FIH=&8D 
624@FP=&8E : 
625@0SWRITE=&FFEE: OSBYTE=&FFF4 
S26B0SWORD=&FFF 1: OSCLI=&FFF7 
62780SRDCH=&FFEQ 
S288P%=page% 
629Q@PROCCOPY: JT=P% 
S630ORT=JT+1460 
631 QENDPROC 
6328 
SS3Q@DEFPROCJUMPTAB © 
634QPROCE (add, 2) :PROCE (sub, 4) 
6SS5@PROCE (mul ,6) : PROCE (div,8) 
636@PROCE (gtt,1@):PROCE(1tt, 12) 
637@PROCE (geq,14) : PROCE (leq, 14) 
638@PROCE (equ, 18) : PROCE (neq, 20) 
639QPROCE (neg, 22) : PROCE (vdu, 24) 
64@QPROCE (ink, 26) : PROCE (rts, 28) 
641@PROCE (1di ,3@):PROCE (sti ,32) 
6420PROCE (end, 34) : PROCE (pri , 36) 
643@PROCE (dup , 38) : PROCE (swp, 4@) 
6440FROCE (drp ,42) : PROCE (mod, 44) 
645QPROCE (vdd, 46) : PROCE (vdl , 48) 
646@PROCE (snd ,5@) : PROCE (1dt, 52) 
647@PROCE (stt ,54) : PROCE (and,56) 
648@PROCE (ora, 58) : PROCE (eor , 62) 
649QPROCE (rnd, 62) : PROCE ( jmp, 64) 
6S@@PROCE ( jsr ,66) : PROCE ( jmc, 68) 
651@PROCE (1da,7@) : PROCE (sta, 72) 
6S2@PROCE (1d1,74):PROCE (fxr, 76) 
6SS3@PROCE (1dm,8@) : PROCE (stm,82) 
SS4QPROCE (dmm, 84) : PROCE (dma, 84) 
6SSQ@PROCE (vds,9@) : PROCE (cli, 92) 
6S6@PROCE (sqr , 182) : PROCE (sgn, 104) 
657@PROCE (abs, 186) : PROCE (get , 108) 
SS8@PROCE (adv,11@) : PROCE (pos, 112) 
SS9@PROCE (vpo, 114) :PROCE (poi ,116) 
S6@@PROCE (cal , 118) :PROCE (not, 12a) 
661QPROCE (env, 122) 
S620PROCE (rtf ,126):PROCE (nxt , 132) 
6638ENDPROC 
6648 
66SQ@DEFPROCE (opr ,num) 
6668IT?num=opr MOD256 
6678I3T? (num+1)=opr DIV256 
S68GENDPROC 
6698 
67Q@@DEFPROCGTEST 
6710P%74=34: !PZ%=(PL%+5) + (P%+5) *& 10000 
6720P%=F%+5 
673@ENDPROC 
6748 
675@DEFFROCCOFY 
676@CC%=TOP 
677@QREPEAT CC%=CC%-1:UNTIL 7CC%=&FA 
67BQIF CC%?71< >58 ORCCK%72< >&FA GOTD6770 
679@CC%Z=CCO%+3 
S8@@FOR CX%=CC%TO Tor 
6810?7PXL=?CX4%: PXY=PL+1: NEXT: PY=PY%-1 
S6820SLOCK=P%s PXL=P%4+100 
6830ENDFPROC 
6849 
68S5@DEFPROCF INISH 
6868toprts%z=P%: | (SLOCK%+4) =toprtsy 
6870FROCGTEST 
6880$ (SLOC%+8) ="*SAVE RTS "4+STRE~ 
Ppagerz~t" "+STREY(PxZ+1 
689Q@PRINT’ '"<<< TOP OF RTS IS = 
Re OMe CM eee 
690@PRINT‘’ "This number should be entered 
in the" "compiler." ’'"Reseting FAGE to 


its usual value"‘"and then typing RUN will 


allow you"’"to save your run time syst 
Qin Yi 
691 @ENDPROC 
6920 
693QREM type in line 696@ exactly as 
6940REM shown. 
6952 
696@0STOP: STOP 
697@REM 
698@REM 
699@REM T.C. BASIC RTS 
7O@BOREM (c) D.J. Pilling 
7@1OREM January 1985 
702@REM 
7@3Q@MODE7:PRINT"T.C. BASIC Sakis apy 
704@0LOMEM=TOP+4@: HIMEM=TOF+10@ 
7O@SOT%=TOP: O4=T%+8: L%=OX%4+6: S%ETY' 4 
7Q6QPRINT"MODULE CONTAINS "$L% 
7070X%=O%MOD256: Y%Z=O%DIV256 
7@8@PRINT" (1) LOAD NEW CODE " 
7O@9@PRINT" (2) RUN CODE " 
7i@@FRINT" (3) SAVE MODULE" 
7AIOIZ=GET: IXZ=1%-ASC"O": IFIZ<1 OR 
I%>3 GOTO7110 
712@ONIZGOTO 7130,7220,7270 
7I3ZOINPUT"FILE NAME "$L%:*OPT1,1 
7140*O0PT2,1 
715@HZ=OPENUPSLY% 
7I6QOINPUT#HH, ,CY%,F%,E%,$L% 


7A7OFOR J%=0 TO EX%-C%+3: S473 %=BGET#H%: NEXT 


71 8@CLOSE#H% 
719@#OPT 
72Q00$L%="M. "+R IGHT$ ($L%,LENSL%-2) +" 
"+STRE*PAGE+" "+S TRS~(IJZ+S24+1) 
72108GOTO7032 
7220°&70=S~MOD256: 2&7 1=S%DIV256 
723QCALL (7T%+26@) 
724QPRINT  ': IF ?7&B3=44PRINT"END OF CODE 
“ELSEIF ?&B3=BBPRINT"DIVISION BY ZERO 
"ELSEIF ?&83=22PRINT"NEGATIVE SQUARE 
ROOT"ELSEIF°P&R&BS=L1IPRINT"NO ARRAY DIM 
“ELSEIF ?&83=33F RINT" BAD DIM" 
725Q0FRINT"« RETURN” to reset "; 
726@REFEAT UNTIL GET=13:G0OTO7030 
7270CALLRFFF7: GOTO7Q30 





$71OP%74=34: !P%=(P%+5) + (PX+5) *&10000 

6720P%=P%4+5 

673@ENDPROC 

67408 

675Q@DEFFROCCOPY 

676@CC%=TOP 

677@0REPEAT CC%=CC%-1: UNTIL ?CCKERFA 

678@IF CC%71< >58 ORCCY%72< >&FA GOTO6770 

679@CC%=CC%+2 

S8@8@FOR CX%=CC%TO Top ’ 

6810?7PX=P9CX%: PX=PL+1:NEXT:PY=Py-1 

S820SLOCK%=P%: P%=P%+100 

683QENDFROC 

6848 

S68S5@DEFPROCFINISH 

S860toprtsxz=P%: ! (SLOCK+4) =toprtsy 

687@FROCGTEST 

6880$ (SLOC%+8) ="*S5aVE RTS "+STR¢~ 
pagexz+" "+STRE~ (PY%+1 4 

6B9Q@PRINT’ '"<<< TOP OF RTS Is = 
"SCOP cSAg hy 

69@@PRINT‘’ "This number should be entered 


in the" "compiler." ’'"Reseting FAGE to 
its usual value" ‘"and then typing RUN will 
allow you"'"to save your run time syst 
em." 

691@ENDPROC 

6920 


693QREM type in line 696@ exactly as 

694@QREM shown. 

6958 

6960STOP: STOP 

697@0REM 

698@REM SSSSSSSSS SSeS S==s25==e2e==-2==--— 

S99Q@REM T.C. BASIC RTS 

7@BO@REM (c) DJ. Pilling 

7@1@QREM January 1985 

7O@2QGREM SSSSSSSSSSeeeSseeee=ee==5=-=--— 

7@35Q@MODE7:PRINT"T.C. BASIC RTS " 

7040LOMEM=TOP+4@: HIMEM=TOP+109 

7@5OT%=TOP: OX=T%4+8: L%=O%+6: SY%=aTY'4 

7Q6QPRINT"MODULE CONTAINS "$Ly 

7070X%=O%MOD256: Y%=O%DIV256 

7@8@PRINT"(1) LOAD NEW CODE " 

7@9@PRINT" (2) RUN CODE " 

7IB@FRINT" (3) SAVE MODULE" 

711@I%=GET: IX=1%-ASC"O": IFI“U<1 OR 
I%>3 GOTO7119 

71200NIZGOTO 7138,7228,7270 

7A3@INPUT"FILE NAME "$LZ:*OPT1,1 

714@*OPT2,1 

71S5@HZ=OPENUPSLY 

7 16QINPUT#H% ,C%,F%,E%, $Ly 

717QFOR J%=8 TO E%-C%+3: S470 %=BGET#H%: NEXT 

7 18@CLOSE#H*~% 

71 9@*OPT 

7200$L%="M. "+R IGHT$ ($L%,LENSL%—-2) +" 
“+STRE“PAGE+" "+S TREé (J3%+S%+1) 

7210GO0TO7030 ; 

72207°&70=SYMOD2ZS56: 7&7 1=SYDIV256 

723Q@CALL (T%+26@) 

724QPRINT’ ': IFPRBS=44PRINT"END OF CODE 
"ELSEIF ?&B3=B8EPRINT"DIVISION BY ZERO 
“ELSEIF ?&83=22PRINT"NEGATIVE SQUARE 
ROOT"ELSEIF?&RB3=11PRINT"NO ARRAY DIM 
“ELSEIF ?&835=33F RINT"BAD DIM" 

725@FRINT": RETURN> to reset i 

726QREFEAT UNTIL GET=13:GOTO7@30 

7270CALL&FFF 7: GOTO7Q3@ 








